home *** CD-ROM | disk | FTP | other *** search
/ Imaginext Pirate Activity / ImaginextPirateActivityCD.iso / Pirate Raider / piratedemo.dxr / Lingo_22.ls < prev    next >
Encoding:
Text File  |  2003-05-30  |  700 b   |  42 lines
  1. property sprt, Active
  2. global Wheel, Ship, PauseFlag
  3.  
  4. on beginSprite me
  5.   sprt = sprite(me.spriteNum)
  6. end
  7.  
  8. on mouseEnter me
  9.   Active = 1
  10. end
  11.  
  12. on mouseLeave me
  13.   Active = 0
  14.   Wheel.notSelected()
  15. end
  16.  
  17. on mouseUp me
  18.   ml = the mouseLoc
  19.   if inside(ml, sprt.rect) then
  20.     if ml.locH > ((sprt.width / 2) + sprt.left) then
  21.       Ship.turnRight()
  22.     else
  23.       Ship.turnLeft()
  24.     end if
  25.   end if
  26. end
  27.  
  28. on exitFrame me
  29.   if not PauseFlag then
  30.     if Active then
  31.       ml = the mouseLoc
  32.       if inside(ml, sprt.rect) then
  33.         if ml.locH > ((sprt.width / 2) + sprt.left) then
  34.           Wheel.rightSelected()
  35.         else
  36.           Wheel.leftSelected()
  37.         end if
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.